home *** CD-ROM | disk | FTP | other *** search
/ The World's Largest Collection of Windows Software / The World's Largest Collection of Windows Software - Disc 1.iso / connect / _b1 / mrun211 / mrun211.was < prev    next >
Encoding:
Text File  |  1993-05-01  |  32.9 KB  |  1,042 lines
  1. ;MailRun v2.11:  Automated BBS Communications
  2. ;1992-1993 Gerald P. Sully, all rights reserved.
  3.  
  4.  
  5. #comment
  6. **************************************************************************
  7. **************************************************************************
  8. * 
  9. * The source code for MailRun is contained in 9 separate files: 
  10. * MRUN211.WAS (this file), MRUN211.H (a header file), and files 
  11. * named MRUN211?.WAS, where ? is a letter A through G.  MailRun
  12. * also requires the file MRUNICON.DLL in order to display the 
  13. * tool bar.
  14. * 
  15. * MRUN211.WAS is the script from which the other script files
  16. * are run.  It performs a brief initialization to find the
  17. * location of its support files, then chains to MRUN211A.WAS,
  18. * which is the principle engine of MailRun.  It will also 
  19. * perform an install routine if it finds that there is no
  20. * current MAILRUN.INI file.
  21. * 
  22. * The key files of MailRun are the *.MRN files.  These
  23. * store configuration information and control what tasks
  24. * will be performed on each BBS.  The user interface is
  25. * designed to provide a convenient way to edit these files
  26. * and display their contents.  The files are standard INI
  27. * files, and so may also be edited by hand.  The comm engine,
  28. * contained in MRUN211G.WAS, reads the currently loaded *.MRN
  29. * file, calls each BBS and executes each pending task.
  30. * 
  31. **************************************************************************
  32. **************************************************************************
  33. #endcomment
  34.  
  35.  
  36. #define IniFile 0
  37.  
  38. string MailRunIni, MailRunList, MailRunTrunc, MailRun, OldIni
  39. string MailRunDir, MailDir, ReplyDir, DownloadDir, UploadDir, TempDir
  40. string DialAttempts, DialTimeout, DialPause, IdleTimeout, SavePackets
  41. string Archiver, QWKReader, LogViewer
  42. integer LogRun, AppendLog, AnsiInLog, NewfileFilter, HelpPage
  43. float Version
  44.  
  45.  
  46. #comment
  47. *********************************************************************
  48. * 
  49. * MAIN()
  50. * 
  51. * Calls makefullname(), checkdir(), makeini(), gettempdir(),
  52. * delspec(), changesettings(), movedir(), updatemrn()
  53. * 
  54. * Executes MRUN211A.WAX
  55. * 
  56. * Checks for existence of MAILRUN.INI file, then chains
  57. * to the main body of the script.
  58. * 
  59. *********************************************************************
  60. #endcomment
  61.  
  62. proc main
  63. string MRunMain, temp, MailRunHelp
  64.     MailRunHelp = makefullname($PWTASKPATH, "mailrun.hlp")
  65.     if isfile MailRunHelp
  66.         set aspect helpfile "mailrun.hlp"
  67.     endif
  68.  
  69.    ;Create the temporary directory
  70.    gettempdir()
  71.    if !(checkdir(TempDir, ""))
  72.       halt
  73.    endif
  74.    
  75.    MailRunIni = makefullname($WINPATH, "MAILRUN.INI")
  76.    profilerd MailRunIni "MailRun" "Version" temp
  77.    atof temp Version
  78.    if Version != 2.11
  79.       ;if there is no .INI file for version 2.11, run install procedure
  80.         fetch aspect scriptpath temp
  81.        temp = makefullname(temp, "mailrun.hlp")
  82.        if not strcmpi MailRunHelp temp
  83.            copyfile temp MailRunHelp
  84.            delfile temp
  85.         endif
  86.         set aspect helpfile "mailrun.hlp"
  87.       makeini()
  88.       changesettings()
  89.       movedir()
  90.       if Version != 2.10
  91.           updatemrn()
  92.        endif
  93.         delfile OldIni
  94.       statmsg "Installation complete!"
  95.    endif
  96.  
  97.    ;Make sure the Temp directory is empty
  98.    delspec(TempDir, "*.*")
  99.    profilerd MailRunIni "MailRun" "MailRunDir" MailRunDir
  100.    MRunMain = makefullname(MailRunDir, "MRUN211A")
  101.    execute MRunMain
  102. endproc
  103.  
  104.  
  105. #comment
  106. *********************************************************************
  107. * 
  108. * DELSPEC()
  109. * 
  110. * Called by main()
  111. * 
  112. * Calls makefullname()
  113. * 
  114. * Deletes specified filespec from specified directory.
  115. * 
  116. *********************************************************************
  117. #endcomment
  118.  
  119. proc delspec
  120. strparm dirname, spec
  121. string filename, filespec
  122.    FileSpec = makefullname(dirname, spec)
  123.    findfirst FileSpec
  124.    while FOUND
  125.       FileName = makefullname(dirname, $FILENAME)
  126.       delfile FileName
  127.       findnext
  128.    endwhile
  129. endproc
  130.  
  131.  
  132. #comment
  133. *********************************************************************
  134. * 
  135. * MAKEINI()
  136. * 
  137. * Called by main()
  138. * 
  139. * Calls welcomebox(), getbbstypes()
  140. * 
  141. * Creates the MAILRUN.INI file and sets default values.
  142. * 
  143. *********************************************************************
  144. #endcomment
  145.  
  146. proc makeini
  147. string StateDLPath, StateULPath, AspectDir, temp, MailRunBak
  148. integer dialogstatus
  149. integer StateWaitCnct, StateCallPause, StateMaxDial
  150.    welcomebox()
  151.    ;Check whether user wishes to continue
  152.    while 1
  153.        dialogstatus = $DIALOG
  154.       switch dialogstatus
  155.           case 1
  156.               ;user chose Cancel
  157.               halt
  158.           endcase
  159.           case 10
  160.               ;user chose OK
  161.               exitwhile
  162.           endcase
  163.       endswitch
  164.    endwhile
  165.  
  166.     ;Save the old MAILRUN.INI file if it exists
  167.  
  168.     if isfile MailRunIni
  169.         OldIni = makefullname(TempDir, "oldini.tmp")
  170.         copyfile MailRunIni OldIni
  171.         MailRunBak = makefullname($WINPATH, "MAILRUN.BAK")
  172.         if isfile MailRunBak
  173.             delfile MailRunBak
  174.         endif
  175.         rename MailRunIni MailRunBak
  176.     endif        
  177.  
  178.    ;Create the file MAILRUN.INI
  179.  
  180.    fopen IniFile MailRunIni CREATE TEXT
  181.    if FAILURE
  182.       errormsg "Unable to create MAILRUN.INI;`r`nscript aborted...."
  183.       halt
  184.    endif 
  185.    fputs IniFile "[MailRun]"
  186.    fputs IniFile "Version=2.11"
  187.    fputs IniFile "MailRun="
  188.    fputs IniFile "MailRunDir="
  189.    fputs IniFile "MailDir="
  190.    fputs IniFile "ReplyDir="
  191.    fputs IniFile "DownloadDir="
  192.    fputs IniFile "UploadDir="
  193.    fputs IniFile "DialAttempts="
  194.    fputs IniFile "DialTimeout="
  195.    fputs IniFile "DialPause="
  196.    fputs IniFile "IdleTimeout="
  197.    fputs IniFile "SavePackets="
  198.    fputs IniFile "LogRun="
  199.    fputs IniFile "AppendLog="
  200.    fputs IniFile "AnsiInLog="
  201.    fputs IniFile "NewfileFilter="
  202.    fputs IniFile "Archiver="
  203.    fputs IniFile "QWKReader="
  204.    fputs IniFile "LogViewer="
  205.    fputs IniFile "DLSortField=0"
  206.    fputs IniFile "ULSortField=0"
  207.    fputs IniFile "DLPurgeLimit=0"
  208.    fputs IniFile "ExecTime=HH:MM:SS"
  209.    fputs IniFile "AutoRun=0"
  210.    fputs IniFile "GoWait=1"
  211.    fputs IniFile "PostRun=1"
  212.    fputs IniFile "RingInterrupt=1"
  213.    fputs IniFile ""
  214.    fputs IniFile "[BBSTypes]"
  215.    fputs IniFile "BBSType_1=PCBoard 14.5"
  216.    fputs IniFile "BBSType_2=PCBoard 15.0"
  217.    fputs IniFile "BBSType_3=WildCat! 3.6"
  218.    fputs IniFile "BBSType_4=Auntie"
  219.    fputs IniFile "BBSType_5=RBBS"
  220.    fputs IniFile ""
  221.    fputs IniFile "[MailDoors]"
  222.    fputs IniFile "MailDoor_1=QMail"
  223.    fputs IniFile "MailDoor_2=MarkMail"
  224.    fputs IniFile "MailDoor_3=Cam-Mail"
  225.    fputs IniFile "MailDoor_4=RoseMail"
  226.    fputs IniFile "MailDoor_5=TomCat"
  227.    fputs IniFile "MailDoor_6=Auntie Mail"
  228.    fputs IniFile "MailDoor_7=KingMail"
  229.    fputs IniFile "MailDoor_8=Mail Manager"
  230.    fputs IniFile ""
  231.    fputs IniFile "[DEFAULT]"
  232.    fputs IniFile "BBSName="
  233.    fputs IniFile "BBSType=PCBoard 14.5"
  234.    fputs IniFile "MailDoorType=KingMail"
  235.    fputs IniFile "Number_1="
  236.    fputs IniFile "Number_2="
  237.    fputs IniFile "Number_3="
  238.    fputs IniFile "UserName="
  239.    fputs IniFile "PWord="
  240.    fputs IniFile "UserResp1="
  241.    fputs IniFile "UserResp2="
  242.    fputs IniFile "XferProt=ZModem"
  243.    fputs IniFile "MailXferProt=ZModem"
  244.    fputs IniFile "QWKArchiver=pkunzip.exe"
  245.    fputs IniFile "LangNumber="
  246.    fputs IniFile "GraphicsOn=1"
  247.    fputs IniFile "LangPrompt=Language"
  248.    fputs IniFile "GraphicsPrompt=graphics (Enter)"
  249.    fputs IniFile "NamePrompt=first name"
  250.    fputs IniFile "PWordPrompt=Password"
  251.    fputs IniFile "UserPrompt1="
  252.    fputs IniFile "UserPrompt2="
  253.    fputs IniFile "ScanPrompt=Last Read"
  254.    fputs IniFile "ViewPrompt=View"
  255.    fputs IniFile "MorePrompt=More?"
  256.    fputs IniFile "FilePrompt="
  257.    fputs IniFile "ContinuePrompt=Continue"
  258.    fputs IniFile "CommandPrompt=Command?"
  259.    fputs IniFile "DLPrompt=Aborts Transfer"
  260.    fputs IniFile "DLUnavPrompt=(Enter)=none"
  261.    fputs IniFile "ULPrompt=Aborts Transfer"
  262.    fputs IniFile "ULDescPrompt=? ("
  263.    fputs IniFile "MsgMenuPrompt="
  264.    fputs IniFile "MailDoor=KM"
  265.    fputs IniFile "MailPrompt=KingMail Command"
  266.    fputs IniFile "ReceiveQWKPrompt=When Done"
  267.    fputs IniFile "MailDLPrompt=Aborts Transfer"
  268.    fputs IniFile "MailULPrompt=Aborts Transfer"
  269.    fputs IniFile ""
  270.    fputs IniFile "[PCBoard 14.5]"
  271.    fputs IniFile "GraphicsOn=1"
  272.    fputs IniFile "MailDoorType=KingMail"
  273.    fputs IniFile "LangPrompt=Language"
  274.    fputs IniFile "GraphicsPrompt=graphics (Enter)"
  275.    fputs IniFile "NamePrompt=first name"
  276.    fputs IniFile "PWordPrompt=Password"
  277.    fputs IniFile "ScanPrompt=Last Read"
  278.    fputs IniFile "ViewPrompt=View"
  279.    fputs IniFile "MorePrompt=More?"
  280.    fputs IniFile "ContinuePrompt=Continue"
  281.    fputs IniFile "CommandPrompt=Command?"
  282.    fputs IniFile "DLPrompt=Aborts Transfer"
  283.    fputs IniFile "DLUnavPrompt=(Enter)=none"
  284.    fputs IniFile "ULPrompt=Aborts Transfer"
  285.    fputs IniFile "ULDescPrompt=? ("
  286.    fputs IniFile ""
  287.    fputs IniFile "[PCBoard 15.0]"
  288.    fputs IniFile "GraphicsOn=1"
  289.    fputs IniFile "MailDoorType=KingMail"
  290.    fputs IniFile "UserResp1=n"
  291.    fputs IniFile "UserPrompt1=Personal Mail"
  292.    fputs IniFile "LangPrompt=Language"
  293.    fputs IniFile "GraphicsPrompt=graphics (Enter)"
  294.    fputs IniFile "NamePrompt=first name"
  295.    fputs IniFile "PWordPrompt=Password"
  296.    fputs IniFile "ScanPrompt=Last Read"
  297.    fputs IniFile "ViewPrompt=View"
  298.    fputs IniFile "MorePrompt=More?"
  299.    fputs IniFile "ContinuePrompt=Continue"
  300.    fputs IniFile "CommandPrompt=Command?"
  301.    fputs IniFile "DLPrompt=Aborts Transfer"
  302.    fputs IniFile "DLUnavPrompt=(Enter)=none"
  303.    fputs IniFile "ULPrompt=Aborts Transfer"
  304.    fputs IniFile "ULDescPrompt=? ("
  305.    fputs IniFile ""
  306.    fputs IniFile "[WildCat! 3.6]"
  307.    fputs IniFile "MailDoorType=TomCat"
  308.    fputs IniFile "CallingFrom=City"
  309.    fputs IniFile "UserResp1=Birth Date"
  310.    fputs IniFile "UserResp2=Telephone"
  311.    fputs IniFile "GraphicsOn=0"
  312.    fputs IniFile "NamePrompt=first name"
  313.    fputs IniFile "PWordPrompt=Password"
  314.    fputs IniFile "UserPrompt1=Birth Date"
  315.    fputs IniFile "UserPrompt2=phone"
  316.    fputs IniFile "ScanPrompt=Last Read"
  317.    fputs IniFile "ViewPrompt=View"
  318.    fputs IniFile "MorePrompt=[S]top"
  319.    fputs IniFile "FilePrompt=FILE MENU"
  320.    fputs IniFile "ContinuePrompt=ontinue"
  321.    fputs IniFile "CommandPrompt=MAIN MENU"
  322.    fputs IniFile "DLPrompt=Please begin"
  323.    fputs IniFile "DLUnavPrompt=file # 1"
  324.    fputs IniFile "ULPrompt=Please begin"
  325.    fputs IniFile "ULDescPrompt=Description?"
  326.    fputs IniFile ""
  327.    fputs IniFile "[Auntie]"
  328.    fputs IniFile "GraphicsOn=0"
  329.     fputs IniFile "UserResp1=^C"
  330.     fputs IniFile "UserResp2=3"
  331.    fputs IniFile "MailDoorType=Auntie Mail"
  332.    fputs IniFile "NamePrompt=first name"
  333.    fputs IniFile "PWordPrompt=Password"
  334.     fputs IniFile "UserPrompt1=select the one"
  335.     fputs IniFile "UserPrompt2=Choice (1, 2 or 3)"
  336.    fputs IniFile "ViewPrompt=Bulletin:"
  337.    fputs IniFile "FilePrompt=Files Area"
  338.    fputs IniFile "ContinuePrompt=Continue"
  339.    fputs IniFile "CommandPrompt=Main Area"
  340.    fputs IniFile "DLPrompt=Ctrl+X"
  341.    fputs IniFile "DLUnavPrompt=Enter date"
  342.    fputs IniFile "ULPrompt=Ctrl+X"
  343.    fputs IniFile "ULDescPrompt=1 ?"
  344.    fputs IniFile ""
  345.    fputs IniFile "[RBBS]"
  346.    fputs IniFile "GraphicsOn=0"
  347.    fputs IniFile "MailDoorType=Mail Manager"
  348.    fputs IniFile "NamePrompt=first name"
  349.    fputs IniFile "PWordPrompt=Password"
  350.    fputs IniFile "UserResp1=n"
  351.    fputs IniFile "UserPrompt1=Review new files"
  352.    fputs IniFile "ScanPrompt=Check"
  353.    fputs IniFile "ViewPrompt=new bulletins"
  354.    fputs IniFile "MorePrompt=More"
  355.    fputs IniFile "FilePrompt=FILE Command"
  356.    fputs IniFile "ContinuePrompt=Continue"
  357.    fputs IniFile "CommandPrompt=Main Command"
  358.    fputs IniFile "DLPrompt=for transfer"
  359.    fputs IniFile "DLUnavPrompt=[ENTER] quits"
  360.    fputs IniFile "ULPrompt=for transfer"
  361.    fputs IniFile "ULDescPrompt=+----+|"
  362.    fputs IniFile ""
  363.    fputs IniFile "[KingMail]"
  364.    fputs Inifile "MailDoor=KM"
  365.    fputs IniFile "MailPrompt=KingMail Command"
  366.    fputs IniFile "ReceiveQWKPrompt=When Done"
  367.    fputs IniFile "MailDLPrompt=Aborts Transfer"
  368.    fputs IniFile "MailULPrompt=Aborts Transfer"
  369.    fputs IniFile ""
  370.    fputs IniFile "[QMail]"
  371.    fputs IniFile "MailDoor=QM"
  372.    fputs IniFile "MailPrompt=QMail Command"
  373.    fputs IniFile "ReceiveQWKPrompt=these messages"
  374.    fputs IniFile "MailDLPrompt=Prepare to download"
  375.    fputs IniFile "MailULPrompt=Prepare to upload"
  376.    fputs IniFile ""
  377.    fputs IniFile "[MarkMail]"
  378.    fputs Inifile "MailDoor=MM"
  379.    fputs IniFile "MailPrompt=MarkMail Command"
  380.    fputs IniFile "ReceiveQWKPrompt=When Done"
  381.    fputs IniFile "MailDLPrompt=Aborts Transfer"
  382.    fputs IniFile "MailULPrompt=Aborts Transfer"
  383.    fputs IniFile ""
  384.    fputs IniFile "[RoseMail]"
  385.    fputs IniFile "MailDoor=RM"
  386.    fputs IniFile "MailPrompt=RoseMail Command"
  387.    fputs IniFile "ReceiveQWKPrompt=this Packet"
  388.    fputs IniFile "MailDLPrompt=Prepare to download"
  389.    fputs IniFile "MailULPrompt=Prepare to upload"
  390.    fputs IniFile ""
  391.    fputs IniFile "[Cam-Mail]"
  392.    fputs IniFile "MailDoor=CM"
  393.    fputs IniFile "MailPrompt=Cam-Mail Command"
  394.    fputs IniFile "ReceiveQWKPrompt=these messages"
  395.    fputs IniFile "MailDLPrompt=Prepare to upload"
  396.    fputs IniFile "MailULPrompt=Start your transfer"
  397.    fputs IniFile ""
  398.    fputs IniFile "[TomCat]"
  399.    fputs IniFile "MailDoor=T"
  400.    fputs IniFile "MsgMenuPrompt=MESSAGE MENU"
  401.    fputs IniFile "MailPrompt=TOMCAT MENU"
  402.    fputs IniFile "ReceiveQWKPrompt=when done"
  403.    fputs IniFile "MailDLPrompt=Start your"
  404.    fputs IniFile "MailULPrompt=Start your"
  405.    fputs IniFile ""
  406.    fputs IniFile "[Auntie Mail]"
  407.    fputs IniFile "MailDoor="
  408.    fputs IniFile "MailPrompt="
  409.    fputs IniFile "ReceiveQWKPrompt="
  410.    fputs IniFile "MailDLPrompt=Ctrl+X"
  411.    fputs IniFile "MailULPrompt=Ctrl+X"
  412.    fputs IniFile ""
  413.    fputs IniFile "[Mail Manager]"
  414.    fputs IniFile "MailDoor=d;mail"
  415.    fputs IniFile "MailPrompt=Your choice"
  416.    fputs IniFile "ReceiveQWKPrompt=this packet"
  417.    fputs IniFile "MailDLPrompt=Ready to send"
  418.    fputs IniFile "MailULPrompt=Ready to receive"
  419.    fclose IniFile
  420.    MailRun = MailRunIni
  421.  
  422.     if isfile OldIni
  423.         ;if there was a previous version of MailRun installed,
  424.         ;read the default values from the old file.
  425.         
  426.         ;don't offer the Aspect directory as a default for MailRunDir
  427.         profilerd OldIni "MailRun" "MailRunDir" MailRunDir
  428.         temp = makefullname(MailRunDir, "*")
  429.         fetch aspect scriptpath AspectDir
  430.         addfilename AspectDir "*"
  431.         if strcmpi temp AspectDir
  432.             MailRunDir = makefullname($PWTASKPATH, "mailrun")
  433.         endif
  434.  
  435.         profilerd OldIni "MailRun" "MailRun" MailRun
  436.         profilerd OldIni "MailRun" "DownloadDir" DownloadDir
  437.         profilerd OldIni "MailRun" "UploadDir" UploadDir
  438.         profilerd OldIni "MailRun" "MailDir" MailDir
  439.         profilerd OldIni "MailRun" "ReplyDir" ReplyDir
  440.         profilerd OldIni "MailRun" "DialAttempts" DialAttempts
  441.         profilerd OldIni "MailRun" "DialTimeout" DialTimeout
  442.         profilerd OldIni "MailRun" "DialPause" DialPause
  443.         profilerd OldIni "MailRun" "IdleTimeout" IdleTimeout
  444.         profilerd OldIni "MailRun" "SavePackets" SavePackets
  445.         profilerd OldIni "MailRun" "LogRun" LogRun
  446.         profilerd OldIni "MailRun" "AppendLog" AppendLog
  447.         profilerd OldIni "MailRun" "AnsiInLog" AnsiInLog
  448.         profilerd OldIni "MailRun" "NewfileFilter" NewfileFilter
  449.         profilerd OldIni "MailRun" "Archiver" Archiver
  450.         profilerd OldIni "MailRun" "QWKReader" QWKReader
  451.         profilerd OldIni "MailRun" "LogViewer" LogViewer
  452.     else
  453.        ;otherwise, suggest default values based on current system settings
  454.     
  455.        fetch dialdir maxdial StateMaxDial
  456.        fetch dialdir waitcnct StateWaitCnct
  457.        fetch dialdir callpause StateCallPause
  458.        fetch dnldpath StateDLPath
  459.        fetch upldpath StateULPath
  460.         MailRun = "mailrun.mrn"
  461.        MailRunDir = makefullname($PWTASKPATH, "mailrun")
  462.        DownloadDir = StateDLPath
  463.        UploadDir = StateULPath
  464.        MailDir = StateDLPath
  465.        ReplyDir = StateULPath
  466.        itoa StateMaxDial DialAttempts
  467.        itoa StateWaitCnct DialTimeout
  468.        itoa StateCallPause DialPause
  469.        IdleTimeout = "120"
  470.        SavePackets = "3"
  471.        LogRun = 1
  472.        AppendLog = 0
  473.        AnsiInLog = 0
  474.        NewfileFilter = 0
  475.     endif
  476.  
  477.     if Version >= 2.00
  478.         getbbstypes()
  479.     endif
  480.    MailRunList = "MAILRUN.INI"
  481.    MailRunTrunc = "MAILRUN.INI"
  482. endproc
  483.  
  484.  
  485. #comment
  486. *********************************************************************
  487. * 
  488. * GETBBSTYPES()
  489. * 
  490. * Called by makeini()
  491. * 
  492. * Adds any user created prompt sets from a previous version
  493. * of MailRun to MAILRUN.INI.
  494. * 
  495. *********************************************************************
  496. #endcomment
  497.  
  498. proc getbbstypes
  499. string BBSType_X, BBSType, MailDoor_X, MailDoorType, temp
  500. integer i, j
  501.     i = 1
  502.     j = 6
  503.     strfmt BBSType_X "BBSType_%d" i
  504.     profilerd OldIni "BBSTypes" BBSType_X BBSType
  505.     while not NULLSTR BBSType
  506.         switch BBSType
  507.             case "PCBoard 14.5"
  508.             case "WildCat! 3.5"
  509.             case "WildCat! 3.6"
  510.             case "Auntie"
  511.             case "RBBS"
  512.             endcase
  513.             default
  514.                 strfmt BBSType_X "BBSType_%d" j
  515.                 j++
  516.                 profilewr MailRunIni "BBSTypes" BBSType_X BBSType
  517.                 profilerd OldIni BBSType "MailDoorType" temp
  518.                 profilewr MailRunIni BBSType "MailDoorType" temp
  519.                 profilerd OldIni BBSType "LangPrompt" temp
  520.                 profilewr MailRunIni BBSType "LangPrompt" temp
  521.                 profilerd OldIni BBSType "GraphicsPrompt" temp
  522.                 profilewr MailRunIni BBSType "GraphicsPrompt" temp
  523.                 profilerd OldIni BBSType "NamePrompt" temp
  524.                 profilewr MailRunIni BBSType "NamePrompt" temp
  525.                 profilerd OldIni BBSType "PWordPrompt" temp
  526.                 profilewr MailRunIni BBSType "PWordPrompt" temp
  527.                 profilerd OldIni BBSType "Confirm1Prompt" temp
  528.                 profilewr MailRunIni BBSType "UserPrompt1" temp
  529.                 profilerd OldIni BBSType "Confirm2Prompt" temp
  530.                 profilewr MailRunIni BBSType "UserPrompt2" temp
  531.                 profilerd OldIni BBSType "ViewPrompt" temp
  532.                 profilewr MailRunIni BBSType "ViewPrompt" temp
  533.                 profilerd OldIni BBSType "ScanPrompt" temp
  534.                 profilewr MailRunIni BBSType "ScanPrompt" temp
  535.                 profilerd OldIni BBSType "FilePrompt" temp
  536.                 profilewr MailRunIni BBSType "FilePrompt" temp
  537.                 profilerd OldIni BBSType "MorePrompt" temp
  538.                 profilewr MailRunIni BBSType "MorePrompt" temp
  539.                 profilerd OldIni BBSType "ContinuePrompt" temp
  540.                 profilewr MailRunIni BBSType "ContinuePrompt" temp
  541.                 profilerd OldIni BBSType "CommandPrompt" temp
  542.                 profilewr MailRunIni BBSType "CommandPrompt" temp
  543.                 profilerd OldIni BBSType "DLPrompt" temp
  544.                 profilewr MailRunIni BBSType "DLPrompt" temp
  545.                 profilerd OldIni BBSType "DLUnavPrompt" temp
  546.                 profilewr MailRunIni BBSType "DLUnavPrompt" temp
  547.                 profilerd OldIni BBSType "ULPrompt" temp
  548.                 profilewr MailRunIni BBSType "ULPrompt" temp
  549.                 profilerd OldIni BBSType "ULDescPrompt" temp
  550.                 profilewr MailRunIni BBSType "ULDescPrompt" temp
  551.             endcase
  552.         endswitch
  553.         i++
  554.         strfmt BBSType_X "BBSType_%d" i
  555.         profilerd OldIni "BBSTypes" BBSType_X BBSType
  556.     endwhile
  557.     i = 1
  558.     j = 9
  559.     strfmt MailDoor_X "MailDoor_%d" i
  560.     profilerd OldIni "MailDoors" MailDoor_X MailDoorType
  561.     while not NULLSTR MailDoorType
  562.         switch MailDoorType
  563.             case "QMail"
  564.             case "MarkMail"
  565.             case "Cam-Mail"
  566.             case "RoseMail"
  567.             case "KingMail"
  568.             case "TomCat"
  569.             case "Auntie Mail"
  570.             case "Mail Manager"
  571.             endcase
  572.             default
  573.                 strfmt MailDoor_X "MailDoor_%d" j
  574.                 j++
  575.                 profilewr MailRunIni "MailDoors" MailDoor_X MailDoorType
  576.                 profilerd OldIni MailDoorType "MailDoor" temp
  577.                 profilewr MailRunIni MailDoorType "MailDoor" temp
  578.                 profilerd OldIni MailDoorType "MailPrompt" temp
  579.                 profilewr MailRunIni MailDoorType "MailPrompt" temp
  580.                 profilerd OldIni MailDoorType "ReceiveQWKPrompt" temp
  581.                 profilewr MailRunIni MailDoorType "ReceiveQWKPrompt" temp
  582.                 profilerd OldIni MailDoorType "MailDLPrompt" temp
  583.                 profilewr MailRunIni MailDoorType "MailDLPrompt" temp
  584.                 profilerd OldIni MailDoorType "MailULPrompt" temp
  585.                 profilewr MailRunIni MailDoorType "MailULPrompt" temp
  586.                 profilerd OldIni MailDoorType "MsgMenuPrompt" temp
  587.                 profilewr MailRunIni MailDoorType "MsgMenuPrompt" temp
  588.                 profilerd OldIni MailDoorType "QWKArchiver" temp
  589.                 profilewr MailRunIni MailDoorType "QWKArchiver" temp
  590.                 profilerd OldIni MailDoorType "MailXferProt" temp
  591.                 profilewr MailRunIni MailDoorType "MailXferProt" temp
  592.             endcase
  593.         endswitch
  594.         i++
  595.         strfmt MailDoor_X "MailDoor_%d" i
  596.         profilerd OldIni "MailDoors" MailDoor_X MailDoorType
  597.     endwhile
  598. endproc    
  599.  
  600.  
  601. #comment
  602. *********************************************************************
  603. * 
  604. * CHANGESETTINGS()
  605. * 
  606. * Called by main()
  607. * 
  608. * Calls checkdir(), settingsbox()
  609. * 
  610. * Allows the user to change the defaults in MAILRUN.INI.
  611. * 
  612. *********************************************************************
  613. #endcomment
  614.  
  615. proc changesettings
  616. string LastMRunDir, LastMailDir, LastReplyDir
  617. string LastDLDir, LastULDir
  618. string SaveMsg = "You have not saved your MailRun settings.  \
  619. Select `"OK`" to return, `"Cancel`" to abort MailRun."
  620. integer dialogstatus, savestatus
  621. integer Response
  622.    ;Save old values in case of error in directory creation
  623.    LastMRunDir = MailRunDir
  624.    LastMailDir = MailDir
  625.    LastReplyDir = ReplyDir
  626.    LastDLDir = DownloadDir
  627.    LastULDir = UploadDir
  628.    settingsbox()
  629.    disable CTRL 170
  630.    savestatus = 1
  631.    while 1
  632.       dialogstatus = $DIALOG
  633.       switch dialogstatus
  634.          case 10
  635.             ;User selected "Save"
  636.             ;if the directories chosen in settingsbox()
  637.             ;don't exist, create them
  638.                 if checkdir(&MailRunDir, LastMRunDir) && \
  639.                     checkdir(&MailDir, LastMailDir) && \
  640.                     checkdir(&ReplyDir, LastReplyDir) && \
  641.                     checkdir(&DownloadDir, LastDLDir) && \
  642.                     checkdir(&UploadDir, LastULDir)
  643.                ;if all directories exist or were successfully created
  644.                ;write the settings to MAILRUN.INI
  645.                chdir MailRunDir
  646.                profilewr MailRunIni "MailRun" "MailRunDir" MailRunDir
  647.                profilewr MailRunIni "MailRun" "MailDir" MailDir
  648.                profilewr MailRunIni "MailRun" "ReplyDir" ReplyDir
  649.                profilewr MailRunIni "MailRun" "DownloadDir" DownloadDir
  650.                profilewr MailRunIni "MailRun" "UploadDir" UploadDir
  651.                profilewr MailRunIni "MailRun" "DialAttempts" DialAttempts
  652.                profilewr MailRunIni "MailRun" "DialTimeout" DialTimeout
  653.                profilewr MailRunIni "MailRun" "DialPause" DialPause
  654.                profilewr MailRunIni "MailRun" "IdleTimeout" IdleTimeout
  655.                profilewr MailRunIni "MailRun" "SavePackets" SavePackets
  656.                profilewr MailRunIni "MailRun" "LogRun" LogRun
  657.                profilewr MailRunIni "MailRun" "AppendLog" AppendLog
  658.                profilewr MailRunIni "MailRun" "AnsiInLog" AnsiInLog
  659.                profilewr MailRunIni "MailRun" "NewfileFilter" NewfileFilter
  660.                profilewr MailRunIni "MailRun" "Archiver" Archiver
  661.                profilewr MailRunIni "MailRun" "QWKReader" QWKReader
  662.                profilewr MailRunIni "MailRun" "LogViewer" LogViewer
  663.             else
  664.                updatedlg 128
  665.                loopwhile
  666.             endif
  667.             savestatus = 0
  668.          endcase
  669.          case 11
  670.             ;User selected "Done"
  671.             if savestatus == 0
  672.                ;if settings have been saved, return to processing
  673.                exitwhile
  674.             endif
  675.             if savestatus == 1
  676.                ;if settings have not been saved, display a warning
  677.                sdlgmsgbox "MailRun Message" SaveMsg EXCLAMATION \
  678.                   OKCANCEL Response 1
  679.                switch Response
  680.                   case 1
  681.                      ;User selected "OK" to continue
  682.                      loopwhile
  683.                   endcase
  684.                   case 2
  685.                      ;User selected "Cancel" to abort
  686.                      delfile MailRunIni
  687.                      halt
  688.                   endcase
  689.                endswitch
  690.             endif
  691.          endcase
  692.          case 70
  693.             ;User selected the "Capture mailrun..." checkbox
  694.             if LogRun == 0
  695.                disable CTRL 71
  696.                disable CTRL 72
  697.             else
  698.                enable CTRL 71
  699.                enable CTRL 72
  700.             endif
  701.             savestatus = 1
  702.             updatedlg 1
  703.          endcase
  704.          case 230
  705.          case 231
  706.          case 232
  707.          case 233
  708.          case 234
  709.          case 235
  710.          case 236
  711.          case 237
  712.          case 238
  713.          case 239
  714.          case 240
  715.          case 241
  716.          case 242
  717.          case 71
  718.          case 72
  719.          case 73
  720.             savestatus = 1
  721.          endcase
  722.       endswitch
  723.    endwhile
  724. endproc
  725.  
  726.  
  727. #comment
  728. *********************************************************************
  729. * 
  730. * CHECKDIR()
  731. * 
  732. * Called by main(), changesettings()
  733. * 
  734. * Creates a directory.  Returns 1 if directory was successfully
  735. * created or already existed; returns 0 if an error ocurred in
  736. * creation.
  737. * 
  738. *********************************************************************
  739. #endcomment
  740.  
  741. func checkdir : integer
  742. strparm NewDir, OldDir
  743.     chdir NewDir
  744.     if FAILURE
  745.         mkdir NewDir
  746.         if FAILURE
  747.             usermsg "Unable to create directory %s" NewDir
  748.             NewDir = OldDir
  749.             return 0
  750.         endif
  751.     endif
  752.     return 1
  753. endfunc
  754.  
  755.  
  756. #comment
  757. *********************************************************************
  758. * 
  759. * MOVEDIR()
  760. * 
  761. * Called by main()
  762. * 
  763. * Calls makefullname(), movefiles()
  764. * 
  765. * Moves MailRun source files to the MailRun directory.
  766. * 
  767. *********************************************************************
  768. #endcomment
  769.  
  770. proc movedir
  771. string aspectpath, temp1, temp2
  772.    temp1 = makefullname(MailRunDir,"*") 
  773.    fetch aspect defaultpath aspectpath
  774.    temp2 = makefullname(aspectpath, "*")
  775.    if not strcmpi temp1 temp2
  776.         movefiles(aspectpath, MailRunDir, "MRUN211?.WA?")
  777.         movefiles(aspectpath, MailRunDir, "MRUN211.H")
  778.         movefiles(aspectpath, MailRunDir, "NEWFILES.WA?")
  779.         movefiles(aspectpath, MailRunDir, "TERMINAL.WA?")
  780.         movefiles(aspectpath, MailRunDir, "MRUNICON.DLL")
  781.         movefiles(aspectpath, MailRunDir, "MAILRUN.WRI")
  782.       statmsg ""
  783.    endif
  784. endproc
  785.  
  786.  
  787. #comment
  788. *********************************************************************
  789. * 
  790. * MOVEFILES()
  791. * 
  792. * Called by movedir()
  793. * 
  794. * Calls makefullname()
  795. * 
  796. * Moves all files matching a filespec from their current
  797. * location to a new directory.
  798. * 
  799. *********************************************************************
  800. #endcomment
  801.  
  802. proc movefiles
  803. strparm OldDir, NewDir, Spec
  804. string OldFile, NewFile, OldSpec
  805.     OldSpec = makefullname(OldDir, Spec)
  806.     findfirst OldSpec
  807.     while FOUND
  808.         if not strcmpi $FILENAME "MRUN211.WAS"
  809.             if not strcmpi $FILENAME "MRUN211.WAX"
  810.                statmsg "Moving %s" $FILENAME
  811.                 OldFile = makefullname(OldDir, $FILENAME)
  812.                 NewFile = makefullname(NewDir, $FILENAME)
  813.                 copyfile OldFile NewFile
  814.                 delfile OldFile
  815.             endif
  816.         endif
  817.         findnext
  818.     endwhile
  819. endproc
  820.  
  821.  
  822. #comment
  823. *********************************************************************
  824. * 
  825. * UPDATEMRN()
  826. * 
  827. * Called by main()
  828. * 
  829. * Calls makefullname(), checkfile()
  830. * 
  831. * Updates existing *.MRN files to MailRun 2.1 format.
  832. * 
  833. *********************************************************************
  834. #endcomment
  835.  
  836. proc updatemrn
  837. string filespec, mrnfile, BBSi, XferProt, BBS_X, BBSType
  838. string MailDoor, MailPrompt
  839. integer i
  840.    filespec = makefullname(MailRunDir, "*.MRN")
  841.    findfirst filespec
  842.    while FOUND
  843.       statmsg "Updating Mailrun %s" $FILENAME
  844.          mrnfile = makefullname(MailRunDir, $FILENAME)
  845.          profilewr mrnfile "MailRun" "DLPurgeLimit" 0
  846.       profilewr mrnfile "MailRun" "GoWait" 1
  847.          profilewr mrnfile "MailRun" "PostRun" 1
  848.          profilewr mrnfile "MailRun" "RingInterrupt" 1
  849.       i = 1
  850.          strfmt BBS_X "BBS_%d" i
  851.          profilerd mrnfile "MailRun" BBS_X BBSi
  852.        while not NULLSTR BBSi
  853.            profilerd mrnfile BBSi "BBSType" BBSType
  854.                 if strcmpi BBSType "WildCat! 3.5"
  855.                     profilewr mrnfile BBSi "BBSType" "WildCat! 3.6"
  856.                profilewr mrnfile BBSi "MsgMenuPrompt" "MESSAGE MENU"
  857.              endif
  858.            if checkfile(OldIni) && Version != 2.00
  859.               profilewr mrnfile BBSi "BBSType" "PCBoard 14.5"
  860.                  profilewr mrnfile BBSi "ViewPrompt" "View"
  861.                profilerd mrnfile BBSi "XferProt" XferProt
  862.                 profilewr mrnfile BBSi "MailXferProt" XferProt
  863.                    profilerd mrnfile BBSi "MailDoor" MailDoor
  864.                    strfmt MailDoor "door;%s" MailDoor
  865.                    profilewr mrnfile BBSi "MailDoor" MailDoor
  866.                 profilerd mrnfile BBSi "MailPrompt" MailPrompt
  867.                 if strfind MailPrompt "QMail"
  868.                     profilewr mrnfile BBSi "MailDoorType" "QMail"
  869.                 elseif strfind MailPrompt "MarkMail"
  870.                     profilewr mrnfile BBSi "MailDoorType" "MarkMail"
  871.                 elseif strfind MailPrompt "Cam-Mail"
  872.                     profilewr mrnfile BBSi "MailDoorType" "Cam-Mail"
  873.                 elseif strfind MailPrompt "RoseMail"
  874.                     profilewr mrnfile BBSi "MailDoorType" "RoseMail"
  875.                 elseif strfind MailPrompt "KingMail"
  876.                     profilewr mrnfile BBSi "MailDoorType" "KingMail"
  877.                 endif
  878.               endif
  879.             i++
  880.             strfmt BBS_X "BBS_%d" i
  881.          profilerd mrnfile "MailRun" BBS_X BBSi
  882.          endwhile
  883.          findnext
  884.       endwhile
  885.       statmsg ""
  886. endproc
  887.       
  888.  
  889. #comment
  890. *********************************************************************
  891. * 
  892. * GETTEMPDIR()
  893. * 
  894. * Called by main()
  895. * 
  896. * Assigns the name of the MailRun temporary directory to
  897. * TempDir.
  898. * 
  899. *********************************************************************
  900. #endcomment
  901.  
  902. proc gettempdir
  903. string env
  904.    getenv "TEMP" env
  905.    if NULLSTR env
  906.       TempDir = $PWTASKPATH
  907.    else
  908.       TempDir = env
  909.    endif
  910.    addfilename TempDir "MRUNTEMP"
  911. endproc
  912.  
  913.  
  914. #comment
  915. *********************************************************************
  916. * 
  917. * CHECKFILE()
  918. * 
  919. * Called by main()
  920. * 
  921. * Checks for a file's existence.  Returns 1 if the file is
  922. * found, 0 if not found.
  923. * 
  924. *********************************************************************
  925. #endcomment
  926.  
  927. func checkfile : integer
  928. strparm FileNom
  929.    if isfile FileNom
  930.       return 1
  931.    else
  932.       return 0
  933.    endif
  934. endfunc
  935.  
  936.  
  937. #comment
  938. *********************************************************************
  939. * 
  940. * MAKEFULLNAME()
  941. * 
  942. * Called by various.
  943. * 
  944. * Appends a filename to a directory name.
  945. * 
  946. *********************************************************************
  947. #endcomment
  948.  
  949. func makefullname : string
  950. strparm Directory, FileNamen
  951. string FullName
  952.    FullName = Directory 
  953.    addfilename FullName FileNamen
  954.    return FullName
  955. endfunc
  956.  
  957.  
  958. #comment
  959. *********************************************************************
  960. * 
  961. * WELCOMEBOX()
  962. * 
  963. * Called by makeini()
  964. * 
  965. * Displays a dialog box to welcome first time users.
  966. * 
  967. *********************************************************************
  968. #endcomment
  969.  
  970. proc welcomebox
  971. HelpPage = 1
  972. dialogbox 80 57 198 125 15 "MailRun" HELPID HelpPage
  973.    text  10 11 178 8 center "Welcome to MailRun 2.1!"
  974.    text  21 26 156 63 center "Before you begin, you will need to \
  975. configure some basic system settings.  Default settings for MailRun \
  976. are stored in the file MAILRUN.INI, which may be manually edited.`r`n`r`n\
  977. Press F1 for Help."
  978.    pushbutton 49 95 40 14 "OK" normal
  979.    pushbutton 104 95 40 14 "Cancel" cancel
  980. enddialog
  981. endproc
  982.  
  983.  
  984. #comment
  985. *********************************************************************
  986. * 
  987. * SETTINGSBOX()
  988. * 
  989. * Called by changesettings()
  990. * 
  991. * Displays the MailRun Settings dialog box.
  992. * 
  993. *********************************************************************
  994. #endcomment
  995.  
  996. proc settingsbox
  997. HelpPage = 13
  998. dialogbox 15 36 340 222 15 "MailRun Settings" HELPID HelpPage
  999.    groupbox 10 28 200 96 "Directories" shadow
  1000.    text  16 42 71 8 right "MailRun Directory:"
  1001.    text  16 58 71 8 right "Mail Directory:"
  1002.    text  16 74 71 8 right "Reply Directory:"
  1003.    text  16 90 71 8 right "Download Directory:"
  1004.    text  16 106 71 8 right "Upload Directory:"
  1005.    editbox 91 56 110 12 MailDir
  1006.    editbox 91 72 110 12 ReplyDir
  1007.    editbox 91 88 110 12 DownloadDir
  1008.    editbox 91 104 110 12 UploadDir
  1009.    groupbox 224 28 102 96 "Parameters" shadow
  1010.    text  234 42 62 8 right "Dial Attempts:"
  1011.    text  234 58 62 8 right "Dial Timeout:"
  1012.    text  234 74 62 8 right "Dial Pause:"
  1013.    text  234 90 62 8 right "Idle Timeout:"
  1014.    text  234 106 62 8 right "Packets to Save:"
  1015.    editbox 300 40 16 12 DialAttempts
  1016.    editbox 300 56 16 12 DialTimeout
  1017.    editbox 300 72 16 12 DialPause
  1018.    editbox 300 88 16 12 IdleTimeOut
  1019.    editbox 300 104 16 12 SavePackets
  1020.    groupbox 10 132 124 59 "Logging" shadow
  1021.    checkbox 18 144 112 12 "Capture mailrun to log file" LogRun
  1022.    checkbox 18 158 112 12 "Append to existing log file" AppendLog
  1023.    checkbox 18 172 112 12 "Capture ANSI codes in log file" AnsiInLog
  1024.    checkbox 18 200 134 12 "Filter duplicates from d/l database" NewfileFilter
  1025.    groupbox 144 132 184 59 "Utilities" shadow
  1026.    text  145 146 65 8 right "Archive Utility:"
  1027.    text  145 160 65 8 right "QWK Mail Reader:"
  1028.    text  145 174 65 8 right "Log File Viewer:"
  1029.    editbox 214 144 107 12 Archiver
  1030.    editbox 214 158 107 12 QWKReader
  1031.    editbox 214 172 107 12 LogViewer
  1032.    pushbutton 191 200 40 14 "&Save" normal default
  1033.    pushbutton 252 200 40 14 "&Done" normal
  1034.    text  100 11 52 8 right "Settings for:"
  1035.    combobox 156 9 72 42 MailRunList MailRunTrunc sort
  1036.    editbox 91 40 110 12 MailRunDir
  1037. enddialog
  1038. endproc
  1039.  
  1040.  
  1041.  
  1042.